1 POKE53280,0:IFA=0THENA=1:LOAD"SHOW.OBJ*",8,1
5 POKE53281,0:PRINTCHR$(142)"[147][154]PRESS A KEY FOR BEGIN
6 [153][163]10)"AND BETWEEN PICTURES!"
7 [151]198,0:[146]198,1
10 PACE[178]0
20 MODE[178]1
30 SPEED[178]4
50 [151]1000,PACE
60 [151]1001,SPEED
70 [151]1002,MODE
1000 [129]I[178]0[164]6:[135]PC
1010 [158]57812"FORPIC "[170][199](PC)[170]"*",8,1
1020 [151]780,0
1030 [158]65493
1500 [139]PACE[178]0[167][151]1000,[187](0)[172]254[170]1
2000 [158]4096[172]5
2500 [151]198,0:[146]198,1
3030 [130]I
4000 [151]53265,27
4010 [151]53270,200
4015 [151]53272,21
4020 [151]53281,0:[153]"LOADE N D (PRESS A KEY FOR RESET)
4030 POKE198,0:WAIT198,1
4040 SYS64738
4050 DATA 49,50,51,52,53,54,65